home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pseudo-s / pseudo_2.lha / builtin.pso < prev    next >
Encoding:
Text File  |  1992-02-17  |  14.8 KB  |  287 lines
  1. ; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SCHEME-TRANSLATOR; -*-
  2.  
  3. ; This file was generated by Pseudoscheme 2.8a
  4. ;  running in Lucid Common Lisp 4.0.1
  5. ;  from file /amd/night/b/jar/pseudo/builtin.scm
  6.  
  7. (SCHI:BEGIN-TRANSLATED-FILE)
  8. (LOCALLY (DECLARE (SPECIAL INTEGRATIONS-TABLE))
  9.          (SETQ INTEGRATIONS-TABLE (MAKE-TABLE)))
  10. (SCHI:SET-FUNCTION-FROM-VALUE 'INTEGRATIONS-TABLE
  11.                               'SCHEME::INTEGRATIONS-TABLE)
  12. (DEFUN DEFINE-INTEGRATION!
  13.        (VAR INT)
  14.        (DECLARE (SPECIAL INTEGRATIONS-TABLE))
  15.        (TABLE-SET! INTEGRATIONS-TABLE VAR INT))
  16. (SCHI:SET-VALUE-FROM-FUNCTION 'DEFINE-INTEGRATION!
  17.                               'SCHEME::DEFINE-INTEGRATION!)
  18. (SCHI:AT-TOP-LEVEL
  19.   (LOCALLY (DECLARE (SPECIAL REVISED^4-SCHEME-ENV))
  20.            (MAPC
  21.              #'(LAMBDA (Z)
  22.                 (DEFINE-INTEGRATION!
  23.                  (PROGRAM-ENV-LOOKUP REVISED^4-SCHEME-ENV (CAR Z)) (CADR Z)))
  24.              '((SCHEME::* (SCHEME::FUN *)) (SCHEME::+ (SCHEME::FUN +))
  25.                (SCHEME::- (SCHEME::FUN -)) (SCHEME::/ (SCHEME::FUN /))
  26.                (SCHEME::<= (SCHEME::PRED <=)) (SCHEME::< (SCHEME::PRED <))
  27.                (SCHEME::= (SCHEME::PRED =)) (SCHEME::>= (SCHEME::PRED >=))
  28.                (SCHEME::> (SCHEME::PRED >)) (SCHEME::ABS (SCHEME::FUN ABS))
  29.                (SCHEME::ACOS (SCHEME::FUN ACOS))
  30.                (SCHEME::ANGLE (SCHEME::FUN PHASE))
  31.                (SCHEME::APPEND (SCHEME::FUN APPEND))
  32.                (SCHEME::APPLY (SCHEME::FUN APPLY))
  33.                (SCHEME::ASIN (SCHEME::FUN ASIN))
  34.                (SCHEME::ASSOC
  35.                 (SCHEME::SUBST (SCHEME::OBJ SCHEME::LIST)
  36.                  (SCHI:TRUE?
  37.                   (ASSOC SCHEME::OBJ SCHEME::LIST :TEST #'SCHI:SCHEME-EQUAL-P))))
  38.                (SCHEME::ASSQ
  39.                 (SCHEME::SUBST (SCHEME::OBJ SCHEME::LIST)
  40.                  (SCHI:TRUE? (ASSOC SCHEME::OBJ SCHEME::LIST :TEST #'EQ))))
  41.                (SCHEME::ASSV (SCHEME::PRED ASSOC 2))
  42.                (SCHEME::ATAN (SCHEME::FUN ATAN))
  43.                (SCHEME::BOOLEAN? (SCHEME::PRED SCHI:BOOLEANP 1))
  44.                (SCHEME::CAAAAR (SCHEME::FUN CAAAAR))
  45.                (SCHEME::CAAADR (SCHEME::FUN CAAADR))
  46.                (SCHEME::CAAAR (SCHEME::FUN CAAAR))
  47.                (SCHEME::CAADAR (SCHEME::FUN CAADAR))
  48.                (SCHEME::CAADDR (SCHEME::FUN CAADDR))
  49.                (SCHEME::CAADR (SCHEME::FUN CAADR))
  50.                (SCHEME::CAAR (SCHEME::FUN CAAR))
  51.                (SCHEME::CADAAR (SCHEME::FUN CADAAR))
  52.                (SCHEME::CADADR (SCHEME::FUN CADADR))
  53.                (SCHEME::CADAR (SCHEME::FUN CADAR))
  54.                (SCHEME::CADDAR (SCHEME::FUN CADDAR))
  55.                (SCHEME::CADDDR (SCHEME::FUN CADDDR))
  56.                (SCHEME::CADDR (SCHEME::FUN CADDR))
  57.                (SCHEME::CADR (SCHEME::FUN CADR))
  58.                (SCHEME::CALL-WITH-CURRENT-CONTINUATION
  59.                 (SCHEME::SUBST (SCHEME::PROC)
  60.                  (BLOCK SCHEME::CONTINUATION
  61.                   (FUNCALL SCHEME::PROC
  62.                    #'(LAMBDA (SCHEME::VAL)
  63.                       (RETURN-FROM SCHEME::CONTINUATION SCHEME::VAL))))))
  64.                (SCHEME::CALL-WITH-INPUT-FILE
  65.                 (SCHEME::LAMBDA (SCHEME::STRING SCHEME::PROC)
  66.                  (WITH-OPEN-FILE
  67.                   (SCHEME::PORT (MERGE-PATHNAMES SCHEME::STRING) :DIRECTION
  68.                    :INPUT)
  69.                   (FUNCALL SCHEME::PROC SCHEME::PORT))))
  70.                (SCHEME::CALL-WITH-OUTPUT-FILE
  71.                 (SCHEME::LAMBDA (SCHEME::STRING SCHEME::PROC)
  72.                  (WITH-OPEN-FILE
  73.                   (SCHEME::PORT (MERGE-PATHNAMES SCHEME::STRING) :DIRECTION
  74.                    :OUTPUT :IF-EXISTS :NEW-VERSION)
  75.                   (FUNCALL SCHEME::PROC SCHEME::PORT))))
  76.                (SCHEME::CAR (SCHEME::FUN CAR))
  77.                (SCHEME::CDAAAR (SCHEME::FUN CDAAAR))
  78.                (SCHEME::CDAADR (SCHEME::FUN CDAADR))
  79.                (SCHEME::CDAAR (SCHEME::FUN CDAAR))
  80.                (SCHEME::CDADAR (SCHEME::FUN CDADAR))
  81.                (SCHEME::CDADDR (SCHEME::FUN CDADDR))
  82.                (SCHEME::CDADR (SCHEME::FUN CDADR))
  83.                (SCHEME::CDAR (SCHEME::FUN CDAR))
  84.                (SCHEME::CDDAAR (SCHEME::FUN CDDAAR))
  85.                (SCHEME::CDDADR (SCHEME::FUN CDDADR))
  86.                (SCHEME::CDDAR (SCHEME::FUN CDDAR))
  87.                (SCHEME::CDDDAR (SCHEME::FUN CDDDAR))
  88.                (SCHEME::CDDDDR (SCHEME::FUN CDDDDR))
  89.                (SCHEME::CDDDR (SCHEME::FUN CDDDR))
  90.                (SCHEME::CDDR (SCHEME::FUN CDDR))
  91.                (SCHEME::CDR (SCHEME::FUN CDR))
  92.                (SCHEME::CEILING (SCHEME::FUN CEILING))
  93.                (SCHEME::CHAR->INTEGER (SCHEME::FUN CHAR-CODE))
  94.                (SCHEME::CHAR-ALPHABETIC? (SCHEME::PRED ALPHA-CHAR-P 1))
  95.                (SCHEME::CHAR-CI<=? (SCHEME::PRED CHAR-NOT-GREATERP))
  96.                (SCHEME::CHAR-CI<? (SCHEME::PRED CHAR-LESSP))
  97.                (SCHEME::CHAR-CI=? (SCHEME::PRED CHAR-EQUAL))
  98.                (SCHEME::CHAR-CI>=? (SCHEME::PRED CHAR-NOT-LESSP))
  99.                (SCHEME::CHAR-CI>? (SCHEME::PRED CHAR-GREATERP))
  100.                (SCHEME::CHAR-DOWNCASE (SCHEME::FUN CHAR-DOWNCASE))
  101.                (SCHEME::CHAR-LOWER-CASE? (SCHEME::PRED LOWER-CASE-P 1))
  102.                (SCHEME::CHAR-NUMERIC? (SCHEME::PRED DIGIT-CHAR-P 1))
  103.                (SCHEME::CHAR-READY? (SCHEME::PRED LISTEN))
  104.                (SCHEME::CHAR-UPCASE (SCHEME::FUN CHAR-UPCASE))
  105.                (SCHEME::CHAR-UPPER-CASE? (SCHEME::PRED UPPER-CASE-P 1))
  106.                (SCHEME::CHAR-WHITESPACE?
  107.                 (SCHEME::PRED SCHI:CHAR-WHITESPACE-P 1))
  108.                (SCHEME::CHAR<=? (SCHEME::PRED CHAR<=))
  109.                (SCHEME::CHAR<? (SCHEME::PRED CHAR<))
  110.                (SCHEME::CHAR=? (SCHEME::PRED CHAR=))
  111.                (SCHEME::CHAR>=? (SCHEME::PRED CHAR>=))
  112.                (SCHEME::CHAR>? (SCHEME::PRED CHAR>))
  113.                (SCHEME::CHAR? (SCHEME::PRED CHARACTERP 1))
  114.                (SCHEME::CLOSE-INPUT-PORT (SCHEME::FUN CLOSE))
  115.                (SCHEME::CLOSE-OUTPUT-PORT (SCHEME::FUN CLOSE))
  116.                (SCHEME::COMPLEX? (SCHEME::PRED NUMBERP 1))
  117.                (SCHEME::CONS (SCHEME::FUN CONS))
  118.                (SCHEME::COS (SCHEME::FUN COS))
  119.                (SCHEME::CURRENT-INPUT-PORT
  120.                 (SCHEME::SUBST NIL *STANDARD-INPUT*))
  121.                (SCHEME::CURRENT-OUTPUT-PORT
  122.                 (SCHEME::SUBST NIL *STANDARD-OUTPUT*))
  123.                (SCHEME::DENOMINATOR (SCHEME::FUN DENOMINATOR))
  124.                (SCHEME::EOF-OBJECT?
  125.                 (SCHEME::SUBST (SCHEME::OBJ)
  126.                  (SCHI:TRUE? (EQ SCHEME::OBJ SCHI:EOF-OBJECT))))
  127.                (SCHEME::EQ? (SCHEME::PRED EQ 2))
  128.                (SCHEME::EQUAL? (SCHEME::PRED SCHI:SCHEME-EQUAL-P 2))
  129.                (SCHEME::EQV? (SCHEME::PRED EQL 2))
  130.                (SCHEME::EVEN? (SCHEME::PRED EVENP 1))
  131.                (SCHEME::EXACT? (SCHEME::PRED RATIONALP 1))
  132.                (SCHEME::EXACT->INEXACT (SCHEME::FUN FLOAT))
  133.                (SCHEME::EXPT (SCHEME::FUN EXPT))
  134.                (SCHEME::EXP (SCHEME::FUN EXP))
  135.                (SCHEME::FLOOR (SCHEME::FUN FLOOR))
  136.                (SCHEME::FOR-EACH (SCHEME::FUN MAPC))
  137.                (SCHEME::GCD (SCHEME::FUN GCD))
  138.                (SCHEME::IMAG-PART (SCHEME::FUN IMAGPART))
  139.                (SCHEME::INEXACT? (SCHEME::PRED FLOATP 1))
  140.                (SCHEME::INEXACT->EXACT (SCHEME::FUN RATIONALIZE))
  141.                (SCHEME::INPUT-PORT? (SCHEME::PRED SCHI:INPUT-PORT-P 1))
  142.                (SCHEME::INTEGER->CHAR (SCHEME::FUN CODE-CHAR))
  143.                (SCHEME::INTEGER? (SCHEME::PRED INTEGERP 1))
  144.                (SCHEME::LCM (SCHEME::FUN LCM))
  145.                (SCHEME::LENGTH (SCHEME::FUN LENGTH))
  146.                (SCHEME::LIST (SCHEME::FUN LIST))
  147.                (SCHEME::LIST->STRING
  148.                 (SCHEME::SUBST (SCHEME::L)
  149.                  (COERCE (THE LIST SCHEME::L) 'SIMPLE-STRING)))
  150.                (SCHEME::LIST->VECTOR
  151.                 (SCHEME::SUBST (SCHEME::L)
  152.                  (COERCE (THE LIST SCHEME::L) 'SIMPLE-VECTOR)))
  153.                (SCHEME::LIST-REF
  154.                 (SCHEME::SUBST (SCHEME::LIST SCHEME::N)
  155.                  (NTH SCHEME::N SCHEME::LIST)))
  156.                (SCHEME::LIST-TAIL
  157.                 (SCHEME::SUBST (SCHEME::LIST SCHEME::N)
  158.                  (NTHCDR SCHEME::N SCHEME::LIST)))
  159.                (SCHEME::LOG (SCHEME::FUN LOG))
  160.                (SCHEME::MAGNITUDE (SCHEME::FUN ABS))
  161.                (SCHEME::MAKE-POLAR
  162.                 (SCHEME::SUBST (SCHEME::R SCHEME::TH)
  163.                  (* SCHEME::R (CIS SCHEME::TH))))
  164.                (SCHEME::MAKE-RECTANGULAR (SCHEME::FUN COMPLEX))
  165.                (SCHEME::MAP (SCHEME::FUN MAPCAR))
  166.                (SCHEME::MAX (SCHEME::FUN MAX))
  167.                (SCHEME::MEMBER
  168.                 (SCHEME::SUBST (SCHEME::OBJ SCHEME::LIST)
  169.                  (SCHI:TRUE?
  170.                   (MEMBER SCHEME::OBJ SCHEME::LIST :TEST #'SCHI:SCHEME-EQUAL-P))))
  171.                (SCHEME::MEMQ
  172.                 (SCHEME::SUBST (SCHEME::OBJ SCHEME::LIST)
  173.                  (SCHI:TRUE? (MEMBER SCHEME::OBJ SCHEME::LIST :TEST #'EQ))))
  174.                (SCHEME::MEMV (SCHEME::PRED MEMBER 2))
  175.                (SCHEME::MIN (SCHEME::FUN MIN))
  176.                (SCHEME::MODULO (SCHEME::FUN MOD))
  177.                (SCHEME::NEGATIVE? (SCHEME::PRED MINUSP 1))
  178.                (SCHEME::NEWLINE (SCHEME::FUN TERPRI))
  179.                (SCHEME::NOT (SCHEME::SPECIAL))
  180.                (SCHEME::NULL? (SCHEME::PRED NULL 1))
  181.                (SCHEME::NUMBER? (SCHEME::PRED NUMBERP 1))
  182.                (SCHEME::NUMERATOR (SCHEME::FUN NUMERATOR))
  183.                (SCHEME::ODD? (SCHEME::PRED ODDP 1))
  184.                (SCHEME::OPEN-INPUT-FILE
  185.                 (SCHEME::SUBST (SCHEME::STRING)
  186.                  (OPEN (MERGE-PATHNAMES SCHEME::STRING) :DIRECTION :INPUT)))
  187.                (SCHEME::OPEN-OUTPUT-FILE
  188.                 (SCHEME::SUBST (SCHEME::STRING)
  189.                  (OPEN (MERGE-PATHNAMES SCHEME::STRING) :DIRECTION :OUTPUT)))
  190.                (SCHEME::OUTPUT-PORT? (SCHEME::PRED SCHI:OUTPUT-PORT-P 1))
  191.                (SCHEME::PAIR? (SCHEME::PRED CONSP 1))
  192.                (SCHEME::POSITIVE? (SCHEME::PRED PLUSP 1))
  193.                (SCHEME::PROCEDURE? (SCHEME::PRED SCHI:PROCEDUREP 1))
  194.                (SCHEME::QUOTIENT
  195.                 (SCHEME::SUBST (SCHEME::N1 SCHEME::N2)
  196.                  (VALUES (TRUNCATE SCHEME::N1 SCHEME::N2))))
  197.                (SCHEME::RATIONAL? (SCHEME::PRED RATIONALP 1))
  198.                (SCHEME::REAL? (SCHEME::PRED SCHI:REALP 1))
  199.                (SCHEME::REAL-PART (SCHEME::FUN REALPART))
  200.                (SCHEME::REMAINDER (SCHEME::FUN REM))
  201.                (SCHEME::REVERSE (SCHEME::FUN REVERSE))
  202.                (SCHEME::ROUND (SCHEME::FUN ROUND))
  203.                (SCHEME::SET-CAR!
  204.                 (SCHEME::SUBST (SCHEME::PAIR SCHEME::OBJ)
  205.                  (SETF (CAR SCHEME::PAIR) SCHEME::OBJ) SCHI:UNSPECIFIED))
  206.                (SCHEME::SET-CDR!
  207.                 (SCHEME::SUBST (SCHEME::PAIR SCHEME::OBJ)
  208.                  (SETF (CDR SCHEME::PAIR) SCHEME::OBJ) SCHI:UNSPECIFIED))
  209.                (SCHEME::SIN (SCHEME::FUN SIN))
  210.                (SCHEME::SQRT (SCHEME::FUN SQRT))
  211.                (SCHEME::STRING->LIST
  212.                 (SCHEME::SUBST (SCHEME::STRING)
  213.                  (COERCE (THE SIMPLE-STRING SCHEME::STRING) 'LIST)))
  214.                (SCHEME::STRING->SYMBOL
  215.                 (SCHEME::SUBST (SCHEME::STRING)
  216.                  (VALUES (INTERN SCHEME::STRING SCHI:SCHEME-PACKAGE))))
  217.                (SCHEME::STRING-CI<=? (SCHEME::PRED STRING-NOT-GREATERP 2))
  218.                (SCHEME::STRING-CI<? (SCHEME::PRED STRING-LESSP 2))
  219.                (SCHEME::STRING-CI=? (SCHEME::PRED STRING-EQUAL 2))
  220.                (SCHEME::STRING-CI>=? (SCHEME::PRED STRING-NOT-LESSP 2))
  221.                (SCHEME::STRING-CI>? (SCHEME::PRED STRING-GREATERP 2))
  222.                (SCHEME::STRING-COPY (SCHEME::FUN COPY-SEQ))
  223.                (SCHEME::STRING-FILL!
  224.                 (SCHEME::SUBST (SCHEME::S SCHEME::VAL)
  225.                  (FILL (THE SIMPLE-STRING SCHEME::S) SCHEME::VAL)))
  226.                (SCHEME::STRING-LENGTH
  227.                 (SCHEME::SUBST (SCHEME::S)
  228.                  (LENGTH (THE SIMPLE-STRING SCHEME::S))))
  229.                (SCHEME::STRING-REF
  230.                 (SCHEME::SUBST (SCHEME::S SCHEME::K)
  231.                  (CHAR (THE SIMPLE-STRING SCHEME::S) SCHEME::K)))
  232.                (SCHEME::STRING-SET!
  233.                 (SCHEME::SUBST (SCHEME::S SCHEME::K SCHEME::OBJ)
  234.                  (SETF (CHAR (THE SIMPLE-STRING SCHEME::S) SCHEME::K)
  235.                   SCHEME::OBJ)
  236.                  SCHI:UNSPECIFIED))
  237.                (SCHEME::STRING<=? (SCHEME::PRED STRING<= 2))
  238.                (SCHEME::STRING<? (SCHEME::PRED STRING< 2))
  239.                (SCHEME::STRING=? (SCHEME::PRED STRING= 2))
  240.                (SCHEME::STRING>=? (SCHEME::PRED STRING>= 2))
  241.                (SCHEME::STRING>? (SCHEME::PRED STRING> 2))
  242.                (SCHEME::STRING? (SCHEME::PRED SIMPLE-STRING-P 1))
  243.                (SCHEME::SUBSTRING (SCHEME::FUN SUBSEQ))
  244.                (SCHEME::SYMBOL? (SCHEME::PRED SCHI:SCHEME-SYMBOL-P 1))
  245.                (SCHEME::TAN (SCHEME::FUN TAN))
  246.                (SCHEME::TRANSCRIPT-OFF
  247.                 (SCHEME::SUBST NIL (DRIBBLE) SCHI:UNSPECIFIED))
  248.                (SCHEME::TRANSCRIPT-ON
  249.                 (SCHEME::SUBST (SCHEME::FILESPEC) (DRIBBLE SCHEME::FILESPEC)
  250.                  SCHI:UNSPECIFIED))
  251.                (SCHEME::TRUNCATE (SCHEME::FUN TRUNCATE))
  252.                (SCHEME::VECTOR (SCHEME::FUN VECTOR))
  253.                (SCHEME::VECTOR->LIST
  254.                 (SCHEME::SUBST (SCHEME::VEC)
  255.                  (COERCE (THE SIMPLE-VECTOR SCHEME::VEC) 'LIST)))
  256.                (SCHEME::VECTOR-FILL!
  257.                 (SCHEME::SUBST (SCHEME::VEC SCHEME::VAL)
  258.                  (FILL (THE SIMPLE-VECTOR SCHEME::VEC) SCHEME::VAL)))
  259.                (SCHEME::VECTOR-LENGTH
  260.                 (SCHEME::SUBST (SCHEME::VEC)
  261.                  (LENGTH (THE SIMPLE-VECTOR SCHEME::VEC))))
  262.                (SCHEME::VECTOR-REF (SCHEME::FUN SVREF))
  263.                (SCHEME::VECTOR-SET!
  264.                 (SCHEME::SUBST (SCHEME::VEC SCHEME::K SCHEME::OBJ)
  265.                  (SETF (SVREF SCHEME::VEC SCHEME::K) SCHEME::OBJ)
  266.                  SCHI:UNSPECIFIED))
  267.                (SCHEME::WITH-INPUT-FROM-FILE
  268.                 (SCHEME::SUBST (SCHEME::STRING SCHEME::THUNK)
  269.                  (WITH-OPEN-FILE
  270.                   (*STANDARD-INPUT* (MERGE-PATHNAMES SCHEME::STRING) :DIRECTION
  271.                    :INPUT)
  272.                   (FUNCALL SCHEME::THUNK))))
  273.                (SCHEME::WITH-OUTPUT-TO-FILE
  274.                 (SCHEME::SUBST (SCHEME::STRING SCHEME::THUNK)
  275.                  (WITH-OPEN-FILE
  276.                   (*STANDARD-OUTPUT* (MERGE-PATHNAMES SCHEME::STRING)
  277.                    :DIRECTION :OUTPUT :IF-EXISTS :NEW-VERSION)
  278.                   (FUNCALL SCHEME::THUNK))))
  279.                (SCHEME::WRITE-CHAR (SCHEME::FUN WRITE-CHAR))
  280.                (SCHEME::ZERO? (SCHEME::PRED ZEROP 1))
  281.                (SCHEME::UNASSIGNED (SCHEME::SUBST NIL SCHI:UNASSIGNED))
  282.                (SCHEME::UNSPECIFIED (SCHEME::VAL SCHI:UNSPECIFIED))
  283.                (SCHEME::AND-AUX (SCHEME::SPECIAL))
  284.                (SCHEME::OR-AUX (SCHEME::SPECIAL))
  285.                (SCHEME::=>-AUX (SCHEME::SPECIAL))
  286.                (SCHEME::CASE-AUX (SCHEME::SPECIAL))))))
  287.